﻿<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%option explicit
Response.Buffer = True    
Response.ExpiresAbsolute = Now() - 1    
Response.Expires = 0    
Response.CacheControl = "no-cache"
%>
<%
Dim RZ_IN
RZ_IN=1
%>
<!--#include file="../conn.inc.asp" -->
<!--#include file="../client_inc/common.function.asp" -->
<!--#include file="../client_inc/common.class.asp" -->
<%
Dim title,content,rand,s_rand
title=ReplaceBad(unescape(request.Form("title")))
content=ReplaceBad(unescape(request.Form("content")))
rand=htmlencode(request.Form("rand"))
s_rand=session("sendemail_rand")
If CStr(rand)=CStr(s_rand) Then 
session("sendemail_rand")=""
Call SendEmails(title,content)
End If 
%>	
